home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Gfx / Edit / TSMorph / src / hook.asm < prev    next >
Assembly Source File  |  1994-10-30  |  407b  |  22 lines
  1. * HookEntry for Lattice
  2.  
  3.     INCLUDE    "exec/types.i"
  4.     INCLUDE    "utility/hooks.i"
  5.  
  6.     XDEF    _HookEntry
  7.  
  8.     section code
  9.  
  10.  _HookEntry:
  11.     move.l    a6,-(sp)
  12.      move.l    a1,-(sp)        ; push message packet pointer
  13.      move.l    a2,-(sp)        ; push object pointer
  14.      move.l    a0,-(sp)        ; push hook pointer
  15.     move.l    h_SubEntry(a0),a0    ; fetch C entry point ...
  16.     jsr    (a0)            ; ... and call it
  17.     lea    12(sp),sp        ; fix stack
  18.     move.l    (sp)+,a6
  19.     rts
  20.  
  21.     end
  22.